home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / Vault Of Terr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  402 lines
  1. 1 rem vault v2.6 by c.m. blakemore
  2. 2 poke53280,.:poke53281,.:poke808,234:goto123
  3. 3 vl=fc:onfc+1gosub49,49,58,60,61
  4. 4 return
  5. 5 gosub3:onfc+1gosub72,62,67,70,71:return
  6. 6 onfc+1gosub74,75,76,77:return
  7. 7 onfc+1gosub78,79,80,81:return
  8. 8 lp=fc:onfc+1gosub82,86,88,90:return
  9. 9 onfc+1gosub91,93,95,96:return
  10. 10 print"[147][146] [205][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][206]"
  11. 11 print" [205][180]"tab(37)"[170][206]"
  12. 12 print" [205][180]"tab(37)"[170][206]"
  13. 13 print" [205][165]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]   [167][206]
  14. 14 [153]" (NULL)fn  then(NULL)                          waitstepfn  then(NULL)
  15. 15 print" [205][165][160] [167] [223]                        [146][169] [165] [160][167][206]
  16. 16 [153]" (NULL)fn  then then(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)fn fn  then(NULL)
  17. 17 print" [205][165]  [167] [167][205] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][160][206][165] [165]  [167][206]
  18. 18 [153]"  fn  then then(NULL) fnthen(NULL)              waitstepfnthen (NULL)fn fn closethen
  19. 19 print"  [165]  [167] [167][205] [165][167][167][205]            [206][165][165][167] [206][165] [165]  [167]
  20. 20 [153]"  (NULL)usrusr(NULL) then(NULL) fnthenthen(NULL)(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)(NULL)fnfnthen (NULL)fn (NULL)usrusr(NULL)
  21. 21 print"  [165][213][201][146][167] [167][160] [213][201][146][167][205][165][212][162][162][162][162][162][162][162][162][217][146][167][206][165][213][201][146] [160][165] [165][213][201][146][167]
  22. 22 [153]"  fnmid$(NULL)waitthen then  mid$(NULL)waitthen (NULL)(NULL)wait(NULL).lenlenlenlen.wait(NULL)(NULL)(NULL)wait fnmid$(NULL)wait  fn fnmid$(NULL)waitthen
  23. 23 print"  [204][175][175][186] [167][160] [165][167][167][206][165][212][146][206][199][146]    [200][146][205][217][146][167][205][165][165][167] [160][165] [204][175][175][186]"
  24. 24 print" [206][165][160] [167] [167][206] [165][167][167][206][165][212][146][206][163][163][163][163][163][163][205][217][146][167][205][165][165][167] [205][165][160][165] [160][167][205]
  25. 25 [153]" (NULL)fn  thenclosethen(NULL) fnthenthen(NULL)(NULL)steptab(tab(tab(tab(tab(tab(tab(tab((NULL)sqr(NULL)fnfnthen (NULL)fn fn  then(NULL)
  26. 26 print" [206][165][160][160][167][160][167][206] [165][167][167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165][165][167] [205][165] [165]  [167][205]
  27. 27 [153]" (NULL)fn closethenclosethen(NULL) (NULL)sqr(NULL)              (NULL)(NULL)sqr (NULL)fn fn closethen(NULL)
  28. 28 print" [206][165][160][160][167] [167][206][163][160] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  [163][205][165] [165]  [167][205]
  29. 29 [153]" (NULL)fncloseclosethenclosethen                        fn fn  then(NULL)
  30. 30 print" [206][165][160][160][167] [206]"tab(32)"[205][160][165][160] [167][205]"
  31. 31 print" [206][204][175][175][186][206] "tab(33)"[205][204][175][175][186][205]"
  32. 32 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  33. 33 print"   ";d$(cd);"  [160]     #[160]$[160]%[160]&[160]'[160]([160])[160]* +       ";d$(cd);"  [146]";
  34. 34 printl$(dd);:return
  35. 35 print"[183][208][157][157]";:forx=.to19:print" [167][157][157]";:next:print"[175][186][157][157] [146][169]":return
  36. 36 print"";tab(8)"[183][208][157][157]";:forx=.to8:print" [167][157][157]";:next:print"[175][186][157][157][146][169]"
  37. 37 return
  38. 38 print"";tab(13)"[208][157]";:forx=.to3:print"[167][157]";:next:print"[186][157][146][169]"
  39. 39 return
  40. 40 print"";tab(16)"[208][157][186][157][146][169]";
  41. 41 return
  42. 42 print"";tab(38)"[207][157]";:forx=.to19:print"[165][157]";:next:print"[204][157][146][223]":return
  43. 43 print""tab(30)"[207][183][157][157]";:forx=.to8:print"[165] [157][157]";:next:print"[204][175][157][146][223]
  44. 44 [142]
  45. 45 [153]"";[163]26)"(NULL)cmd";:[129]x[178].[164]3:[153]"fncmd";:[130]:[153]"(NULL)cmdwait(NULL)"
  46. 46 [142]
  47. 47 [153]"";[163]23)"(NULL)cmd(NULL)cmdwait(NULL)"
  48. 48 [142]
  49. 49 [153]"";:[129]x[178].[164]3:[153][163]6);
  50. 50 [153]"(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)"
  51. 51 [153][163]6)"(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)"
  52. 52 [153][163]6)"(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)"
  53. 53 [153][163]6)"sqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr"
  54. 54 [130]
  55. 55 [153][163]6)"(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)usr(NULL)(NULL)"
  56. 56 [153][163]6)"(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)andsqr(NULL)"
  57. 57 [142]
  58. 58 [153]"";:[129]x[178].[164]4:[153][163]12);"(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr"
  59. 59 [153][163]12);"usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)":[130]:[142]
  60. 60 [153]"";:[129]x[178].[164]4:[153][163]15);"notnotnotnotnotnotnotnotnotnot":[130]:[142]
  61. 61 [153]"";:[153][163]18)"spc(spc(spc(spc(":[142]
  62. 62 [153]"";[163]15)"::::::::::":[153][163]15)":wait////////:"
  63. 63 [153][163]15)":wait/(NULL)usrusrusrusr(NULL)/:":[153][163]15)":wait/fnlenlenlenlenthen/:"
  64. 64 [153][163]15)":wait/(NULL)andandandandsqr/:":[153][163]15)":wait///////peek:"
  65. 65 [153][163]15)":wait///////(NULL):"
  66. 66 [129]x[178].[164]5:[153][163]15)":wait////////:":[130]:[142]
  67. 67 [153]"";:[153][163]17)"::::::":[153][163]17)":wait////:"
  68. 68 [153][163]17)":wait/lenlen/:":[153][163]17)":wait///(NULL):"
  69. 69 [129]x[178].[164]3:[153][163]17)":wait////:":[130]:[142]
  70. 70 [153]"";[163]19)"*rnd":[129]x[178].[164]2:[153][163]19)"//":[130]:[142]
  71. 71 [153]"";[163]19)"(NULL)(NULL)":[142]
  72. 72 [153]"":[129]x[178].[164]21:[153]"(NULL)(NULL)"[163]38)"(NULL)":[130]
  73. 73 [153]"(NULL)(NULL)spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(wait(NULL)";:[141]62:[142]
  74. 74 [153]"";[163]12)"step(NULL)usrusrusrusrusrusrusrusrusrusrusrusr(NULL)(NULL)";:[142]
  75. 75 [153]"";[163]14)"step(NULL)usrusrusrusrusrusrusrusr(NULL)(NULL)";:[142]
  76. 76 [153]"";[163]16)"step(NULL)usrusrusrusr(NULL)(NULL)";:[142]
  77. 77 [153]"";[163]18)"step(NULL)(NULL)(NULL)";:[142]
  78. 78 [153]""[163]12)"(NULL)(NULL)andandandandandandandandandandandandsqrwaitstep":[142]
  79. 79 [153]""[163]14)"(NULL)(NULL)andandandandandandandandsqrwaitstep":[142]
  80. 80 [153]"";[163]16)"(NULL)(NULL)andandandandsqrwaitstep":[142]
  81. 81 [153]"";[163]18)"(NULL)(NULL)sqrwaitstep":[142]
  82. 82 [153]"";:[153][163]14)"then"[163]25)"fn"
  83. 83 [129]x[178].[164]6:[153][163]14)"thenvalvalvalvalvalvalvalvalvalvalfn":[153][163]14)"then"[163]25)"fn"
  84. 84 [153][163]14)"then"[163]25)"fn":[130]
  85. 85 [153][163]14)"thenvalvalvalvalvalvalvalvalvalvalfn":[153][163]14)"then"[163]25)"fn":[142]
  86. 86 [153]"";:[129]x[178].[164]6
  87. 87 [153][163]16)"(NULL)valvalvalvalvalval(NULL)":[153][163]16)"(NULL)"[163]23)"(NULL)":[130]:[142]
  88. 88 [153]"";:[129]x[178].[164]7
  89. 89 [153][163]18)"*newnewrnd":[130]:[142]
  90. 90 [153]"";:[129]x[178].[164]2:[153][163]19)"-<":[130]:[142]
  91. 91 [153]"";[163]11)"step(NULL)--------------(NULL)(NULL)"
  92. 92 [153][163]10)"step(NULL)----------------(NULL)(NULL)":[142]
  93. 93 [153]"";[163]14)"step(NULL)========(NULL)(NULL)":[153][163]14)"(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)"
  94. 94 [153][163]14)"(NULL)tab(=tab(tab(tab(tab(tab(tab(=tab((NULL)":[142]
  95. 95 [153]""[163]16)"step(NULL)====(NULL)(NULL)":[153][163]16)"(NULL)=tab(tab(tab(tab(=(NULL)":[142]
  96. 96 [153]""[163]17)"step====(NULL)":[153][163]17)"(NULL)=tab(tab(=(NULL)":[142]
  97. 97 cem[178][165]te(.):[151]648,cem:[153]l$(dd);:[141]10
  98. 98 fc[178]4:vl[178]fc:lp[178]fc:lv[178]cd[171]1[170]4[172][171](cd[178]1):rv[178]cd[170]1[170]4[172](cd[178]4)
  99. 99 ebm[178][165]cp(.):[139]ebm[177][171]1[175]ebm[179]256[167]102
  100. 100 [139]fc[167]fc[178]fc[171]1:[137]99
  101. 101 [142]
  102. 102 el[178][165]cp(lv):er[178][165]cp(rv)
  103. 103 [139](dl(ebm,.))[167]105
  104. 104 [141]3:fc[178]fc[171]1:[145]1[171](fc[179].)[137]99,113
  105. 105 [139]dl(el,.)[175]fc[179]4[167][145]fc[170]1[141]35,36,38,40
  106. 106 [139]dl(er,.)[175]fc[179]4[167][145]fc[170]1[141]42,43,45,47
  107. 107 [129]d[178]1[164]5:[139](dl(ebm,.)[175]bo(d))[167][145]d[141]9,6,7,8,5
  108. 108 [153]"wait";:[130]:fc[178]fc[171]1:[139]fc[177][171]1[167]99
  109. 109 [139]dl(cl,2)[178].[167]113
  110. 110 [129]x[178].[164]8:[151]xr,22:[151]yr,.:[151]pr,.:[158]plot
  111. 111 [139](dl(cl,2)[175]bo(x))[167][153][163]x[172]4[170]3);oa$(x)
  112. 112 [130]
  113. 113 [141]116
  114. 114 csm[178][165]sw(.):[151]53272,([194](53272)[175]15)[176]csm:[151][165]pm(u),7:[142]
  115. 115 :
  116. 116 [139]fc[175]vl[167]vl[178]vl[171]1
  117. 117 d[178]61:[151][165]mp(1),d:[151][165]mp(2),d:[151][165]mp(3),d:[151][165]mp(5),d
  118. 118 el[178].:er[178].:[129]x[178]vl[164].[169][171]1:fc[178][165]cm(x):[139]dl(fc,1)[178].[167]122
  119. 119 fc[178]dl(fc,1)[171]1:el[178](el[176]sp(x[170]4)):[139]x[177]lp[167]er[178](er[176]sp(x[170]4))
  120. 120 mb[178]sp(x)[171]1:[129]d[178]1[164][195](sb$(x,fc)):[151][165]mp(mb[170]d),[198]([202](sb$(x,fc),d,1))
  121. 121 [151]bc[170]sp(x)[170]d,cs(fc):[130]
  122. 122 [130]:[151]v[170]21,el:[151]v[170]27,er:[142]
  123. 123 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)
  124. 124 [151]53272,[194](53272)[175]15:[151]648,192:[151]53272,([194](53272)[175]240)[176]12
  125. 125 [151]53270,[194](53270)[175]247
  126. 126 [153][199](147):[141]234:[141]238
  127. 127 [134]dl(255,2),bo(15),sp(7),sb$(3,7),d$(4),l$(6),oa$(8),cs(7),m(15),mh(15)
  128. 128 [134]hc(2):x[178].:d[178].:fc[178].:cl[178]17:cd[178]2:vl[178].:el[178].:er[178].:vs[178].
  129. 129 d(1)[178]1:d(2)[178]16:d(3)[178][171]1:d(4)[178][171]16:cs(.)[178]9:cs(1)[178]2:cs(2)[178]6:cs(3)[178]9:cs(4)[178]4
  130. 130 cs(5)[178]14:cs(6)[178]13:cs(7)[178]1:lp[178].:p[178].:l[178]1:lf[178]10
  131. 131 sp(.)[178].:sp(1)[178]4:sp(2)[178]6:sp(3)[178]7:sp(4)[178]15:sp(5)[178]48:sp(6)[178]64:sp(7)[178]128
  132. 132 tgl[178]16:csm[178].:cem[178]192:v[178]53248
  133. 133 d$(1)[178]"e":d$(2)[178]"s":d$(3)[178]"w":d$(4)[178]"n"
  134. 134 nj[178]255:fj[178]254:lj[178]251:rj[178]247:bj[178]253:us[178]239:mu[178]237:u[178].
  135. 135 tl[178]388:dd[178]6:plot[178]65520:ar[178]780:xr[178]781:yr[178]782:pr[178]783:s[178]54272:bc[178]v[170]38
  136. 136 ru[178]156:cu[178]142:all[178]511:hx[178]157:wl[178]17:cc[178]204:cr$[178][199](13)
  137. 137 [150][165]cp(x)[178]fc[172]d(cd)[170](cl[170]d(x)):[150][165]sw(x)[178](tgl[171]csm)
  138. 138 [150][165]te(x)[178](tl[171]cem):[150][165]cm(x)[178]x[172]d(cd)[170]cl:[150][165]mp(x)[178]cem[172]256[170]1016[170]x
  139. 139 [150][165]pm(x)[178]55296[170]972[170](x[172]2)
  140. 140 [129]x[178].[164]15:bo(x)[178]2[174]x:[130]:l$(.)[178]"":l$(1)[178]"list":l$(2)[178]"print#":l$(3)[178]"poke"
  141. 141 l$(4)[178]"poke":l$(5)[178]"":l$(6)[178]"stop":hc(.)[178]2:hc(1)[178]8:hc(2)[178]10
  142. 142 [129]x[178].[164]239:[135]d:dl(x,.)[178]d:[130]
  143. 143 [129]x[178].[164]8:[135]a$:oa$(x)[178]a$:[130]x
  144. 144 [129]x[178].[164]15:[135]a:m(x)[178]a:[130]x
  145. 145 [129]x[178]3[164].[169][171]1:[129]d[178].[164]7:[135]a$:sb$(x,d)[178]a$:[130]d,x
  146. 146 [129]x[178].[164]8
  147. 147 a[178][181]([187](1)[172]93[170]34):[139]dl(a,.)[178].[167]147
  148. 148 dl(a,1)[178]m(x):m(x)[178]a:mh(x)[178]x[172]4[170]1:[130]
  149. 149 [129]x[178]9[164]15
  150. 150 a[178][181]([187](1)[172]96[170]142):[139]dl(a,.)[178].[167]150
  151. 151 dl(a,1)[178]m(x):m(x)[178]a:mh(x)[178]x[172]4[170]1:[130]
  152. 152 d[178]52288:[129]x[178].[164]767:[135]a:[151]d[170]x,a:[130]:[129]x[178].[164]63:[151]53055[170]x,.:[130]
  153. 153 [153]"poke":[129]x[178].[164]8:[151]xr,15:[151]yr,.:[151]pr,.:[158]plot
  154. 154 [153][163]x[172]4[170]2);oa$(x)
  155. 155 [130]
  156. 156 [153]" f1/ start new game  f2/ load old game";:[151]198,.
  157. 157 [161]a$:[139]a$[179][177][199](133)[175]a$[179][177][199](137)[167]157
  158. 158 [139]a$[178][199](137)[167][141]267
  159. 159 dl(cc,1)[178]bo(8)
  160. 160 [151]v[170]21,.:[151]v[170]23,127:[151]v[170]29,15:[151]v,150:[151]v[170]1,193:[151]v[170]2,151
  161. 161 [151]v[170]3,151:[151]v[170]4,119:[151]v[170]5,109:[151]v[170]6,167:[151]v[170]7,109:[151]v[170]8,164
  162. 162 [151]v[170]9,174:[151]v[170]10,164:[151]v[170]11,133:[151]v[170]12,168:[151]v[170]13,152
  163. 163 [151]v[170]14,172:[151]v[170]15,160
  164. 164 [141]322:[141]97:it[178]ti[170]1000
  165. 165 joy[178][194](56321)
  166. 166 [139][187](1)[177].93[167][151]s[170]1,[187](1)[172]7[170]2
  167. 167 b[178]dl(cl,1):[139]b[175][187](1)[170]b[173]100[177].95[167][141]200
  168. 168 [139]ti[177]it[167][141]247:[137]181
  169. 169 [139]joy[178]nj[167]165
  170. 170 [139](dl(cl[170]d(cd),.)[175]bo(5[170]cd))[167]172
  171. 171 [139]joy[178]fj[175]dl(cl[170]d(cd),.)[167]cl[178]cl[170]d(cd):[137]180
  172. 172 [139](dl(cl[171]d(cd),.)[175]bo(5))[167]174
  173. 173 [139]joy[178]bj[175]dl(cl[171]d(cd),.)[167]cl[178]cl[171]d(cd):[137]180
  174. 174 [139]joy[178]rj[167]cd[178]cd[170]1:[137]179
  175. 175 [139]joy[178]lj[167]cd[178]cd[171]1:[137]179
  176. 176 [139]joy[178]us[167][145]u[170]1[141]210,211,4,219,221,226,229,4,4:[137]165
  177. 177 [139]joy[178]mu[167][141]185:[141]322:[137]165
  178. 178 [141]319:[141]322:[137]165
  179. 179 cd[178]cd[170]((cd[178]5)[172]4)[170]((cd[178].)[172][171]4)
  180. 180 [141]97:[137]165
  181. 181 vs[178]vs[170]1:[139]vs[178]dd[172]6[167]vs[178].:dd[178]dd[170]((dd[179]6)[172][171]1):[139]dd[178]6[167]l[178](l[175]254)
  182. 182 lf[178]lf[170]((lf[179]60)[172][171].2):[139](l[175]1)[178].[167]dd[178]6
  183. 183 [151]v[170]32,(lf[179]5)[172][171]2[170](lf[177][178]5[175]lf[179]10)[172][171]7
  184. 184 [137]165
  185. 185 [151]198,.
  186. 186 [139]cu[178]14[167]cu[178]142:[153][199](9);[199](cu);[199](8);:[141]280:[151]v[170]33,.
  187. 187 [129]x[178].[164]8:[139](l[175]bo(x))[167][151][165]pm(x),10
  188. 188 [130]:x[178].:a[178][184](.):a[178].:[139](l[175](bo(u)))[167][151][165]pm(u),7
  189. 189 [139][194](56321)[179][177]nj[167]189
  190. 190 [151][165]pm(x),1:[139](l[175]bo(a))[167][151][165]pm(a),10:[137]192
  191. 191 [151][165]pm(a),2
  192. 192 jy[178][194](56321):[161]a$:[139]a$[178][199](140)[167]259
  193. 193 p[178]l:[139]jy[178]rj[167]a[178]x:x[178]x[170]1[170](x[178]8)[172]9
  194. 194 [139]jy[178]us[175](l[175]bo(x))[167][151][165]pm(u),10:u[178]x:[151][165]pm(x),7:[141]319
  195. 195 [139]jy[178]us[167][142]
  196. 196 [139]jy[178]fj[175](dl(cl,2)[175]bo(x))[167]l[178](l[176]bo(x)):dl(cl,2)[178]dl(cl,2)[171]bo(x)
  197. 197 [139]jy[178]bj[175](l[175]bo(x))[167]l[178](l[175](511[171]bo(x))):dl(cl,2)[178]dl(cl,2)[176]bo(x):u[178].
  198. 198 [139]l[179][177]p[167][141]319:[141]97:[137]186
  199. 199 [137]190
  200. 200 [139]b[178]6[167]u[178].:dl(hx,2)[178]dl(hx,2)[176](l[175]238):l[178]l[175]273
  201. 201 [139]cu[178]14[167][142]
  202. 202 d[178][181]([187](1)[172]3[170]1):[151]v[170]33,hc(d[171]1):lf[178]lf[171](b[173]((l[175]4)[170]1))[170][171]d
  203. 203 [129]t[178]1[164]100:[130]:[151]v[170]33,.:[139]lf[179]1[167]205
  204. 204 [151]v[170]32,(lf[179]5)[172][171]2[170](lf[177][178]5[175]lf[179]10)[172][171]7:[141]324:[141]322:[142]
  205. 205 [151]v[170]33,.:[151]v[170]32,.:[141]277:[153]"loadpoke"[163]9)"thou art slain !!!
  206. 206 print" do you wish to enter the vault again?":poke198,.
  207. 207 geta$:ifa$=""then207
  208. 208 ifa$="n"thenpoke648,4:poke679,.:sys679
  209. 209 pokev+21,.:run
  210. 210 ifdd=6and(land1)thenvs=.:dd=1:gosub97:return
  211. 211 ifb=.orrnd(.)+lf/100<.5thengosub324:return
  212. 212 pokev+33,5:fort=1to100:next:pokev+33,.:forx=.to15
  213. 213 on1-(m(x)=.)goto214,217
  214. 214 ifcl=m(x)thenmh(x)=mh(x)-abs(rnd(.)+((land2)*1)+lf/5)
  215. 215 ifmh(x)>.then217
  216. 216 m(x)=.:dl(cl,1)=.:pokev+21,peek(v+21)and240:gosub277:gosub218
  217. 217 next:gosub324:gosub322:return
  218. 218 lf=lf+b/4:dl(cl,2)=(dl(cl,2)orbo(b-1)):gosub97:gosub319:return
  219. 219 cu=ru-cu:printchr$(9);chr$(cu);chr$(8);:pokev+33,(cu=14)*-4
  220. 220 gosub280:gosub322:return
  221. 221 if(dl(cl,.)andbo(2))thencl=cl+128:gosub315:gosub97:gosub322:return
  222. 222 if(dl(cl,.)and24)=24and(land384)=384thendl(cl,2)=dl(cl,2)orbo(8):l=land255
  223. 223 if(dl(cl,.)and24)=24thencl=cl-128:gosub312:gosub97:gosub322:return
  224. 224 ifcl=wlandl=allthen232
  225. 225 gosub319:gosub322:return
  226. 226 ifb=6thengoto212
  227. 227 dl(cl+d(cd),.)=(dl(cl+d(cd),.)and63):gosub280:gosub322
  228. 228 return
  229. 229 if(dl(cl+d(cd),.)andbo(5))=.thenreturn
  230. 230 if(dl(cl+d(cd),.)andbo(5+cd))thendl(cl+d(cd),.)=dl(cl+d(cd),.)-bo(5+cd)
  231. 231 gosub324:gosub322:return
  232. 232 print"[147]":print" the crown [159]of [156]sarnoth has [158]been returned!"
  233. 233 print"[154] noble warrior,you have survived vault ":gosub280:goto206
  234. 234 forx=1to33:reada:poke680+x,a:next:poke56334,peek(56334)and254
  235. 235 poke1,peek(1)and251:sys681:poke1,peek(1)or4:poke56334,peek(56334)or1
  236. 236 reada:ifa=-1thenreturn
  237. 237 forx=.to7:readd:poke61440+a*8+x,d:next:goto236
  238. 238 printchr$(142)chr$(8)chr$(31)chr$(19);
  239. 239 forh=1to36:print"[168]";:next:forv=1to23:printtab(1)"[168]"tab(37)"[168]"
  240. 240 next:forh=1to38:print"[168]";:next
  241. 241 print""tab(2)"[156]   prepare thyself,brave warrior..."
  242. 242 printtab(2)"[151] [146]$  v a u l t  o f  t e r r o r  [146]$ "
  243. 243 printtab(4)"[146] a 3-dimensional adventure game  "
  244. 244 print" "tab(2)" please wait.....opening dungeon!!!"
  245. 245 return
  246. 246 d=.:fc=8:ifcl>127thend=9:fc=15
  247. 247 p=6:d=.:fc=8:ifcl>127thend=9:fc=15
  248. 248 forx=dtofc:on1-(m(x)=.)goto249,255
  249. 249 ifcl<m(x)-pthena=m(x)+d(4)
  250. 250 ifcl>m(x)+pthena=m(x)+d(2)
  251. 251 ifcl>m(x)andcl<m(x)+pthena=m(x)+d(1)
  252. 252 ifcl<m(x)andcl>m(x)-pthena=m(x)+d(3)
  253. 253 ifa<.ora>255then255
  254. 254 ifdl(a,.)anddl(a,1)=.thendl(a,1)=dl(m(x),1):dl(m(x),1)=.:m(x)=a
  255. 255 next
  256. 256 d=dl(cl,1):ifdthenondgosub288,288,296,296,301,4,308,305:gosub322
  257. 257 pokev+21,.:fc=.:gosub116:it=ti+1000:return
  258. 258 return
  259. 259 print"[146] saving";
  260. 260 open1,8,15:print#1,"s0:lastdungeon":close1
  261. 261 open1,8,2,"lastdungeon,u,w":forx=.to2:ford=.to255:print#1,dl(d,x)cr$
  262. 262 nextd:print".";:nextx:print".";:forx=.to15:print#1,m(x),cr$,mh(x),cr$
  263. 263 nextx:print".";
  264. 264 print#1,cl,cr$,cd,cr$,lf,cr$,l,cr$,u,cr$,dd,cr$,vs,cr$,hx,cr$,wl,cr$
  265. 265 print#1,cc,cr$
  266. 266 close1:goto185
  267. 267 print"[145][145][145][145]":printtab(7);:input" filename  ";a$:a$=left$(a$,11)
  268. 268 f$="lastdungeon":ifa$<>"[168]"thenf$=a$
  269. 269 open1,8,15:print#1,"i0:":close1:open1,8,2,f$+",u,r"
  270. 270 forx=.to2:ford=.to255:input#1,dl(d,x):nextd,x:forx=.to15
  271. 271 input#1,m(x),mh(x)
  272. 272 nextx
  273. 273 input#1,cl,cd,lf,l,u,dd,vs,hx,wl,cc
  274. 274 close1:open1,8,15:input#1,a,b$,c,d:close1
  275. 275 ifathenprint""tab(8)a;b$;c;d
  276. 276 fort=1to5000:next:return
  277. 277 forp=stos+24:pokep,.:next:pokes+24,15:pokes+5,8:pokes+6,255
  278. 278 pokes+4,21:f1=2:forz=1to24:f2=80:pokes+1,f1:fory=1to5:pokes+15,f2
  279. 279 f2=f2/1.1:nexty:f1=f1+9:nextz:pokes+6,15:return
  280. 280 forp=stos+24:pokep,.:next:pokes+24,15
  281. 281 pokes+5,8:pokes+6,255:pokes+4,23:f1=10
  282. 282 forz=1to30:f2=30:pokes+1,f1:fory=1to10:pokes+15,f2
  283. 285 f2=f2*1.01:next:f1=f1+1:next:pokes+6,15:return
  284. 288 forp=stos+24:pokep,.:next:pokes+24,15
  285. 289 pokes+5,8:pokes+6,255:pokes+4,23:f1=11:f2=25
  286. 290 forz=5to50:pokes+1,f1:pokes+15,f2:f2=f2*.97:f1=f1+1:next:pokes+6,15:return
  287. 296 forp=stos+24:pokep,.:next:pokes+24,15:pokes+5,24:pokes+6,248:pokes+4,33
  288. 299 forp=17to13step-1:pokes,p:fort=125to135:pokes+1,t:nextt,p:pokes+4,32
  289. 300 return
  290. 301 forp=stos+24:pokep,.:next:pokes+24,15
  291. 302 pokes+5,8:pokes+6,255:pokes+4,23:f1=15:f2=f1
  292. 303 forz=1to10:pokes+1,f1:pokes+15,f2:f2=f2*1.01:f1=f1*1.3:nextz
  293. 304 pokes+6,15:return
  294. 305 forp=stos+24:pokep,.:next:pokes+24,15:pokes+5,8:pokes+6,255:pokes+4,23
  295. 306 f1=8:f2=4:forz=1to30:pokes+1,f1:pokes+15,f2:f2=f2*1.01:f1=f1+1:next
  296. 307 pokes+6,15:return
  297. 308 forp=stos+24:pokep,.:next
  298. 309 pokes+24,15:pokes+5,155:pokes+6,245
  299. 310 pokes+4,129:forp=50to55:pokes,d
  300. 311 fort=35to55:pokes+1,t:nextt,p:pokes+4,128:fort=1to100:next:return
  301. 312 forp=stos+24:pokep,.:next:pokes+24,15
  302. 313 pokes+5,8:pokes+6,255:pokes+4,23:forf1=4to18step2:pokes+15,f1
  303. 314 forf2=10to180step2:pokes+1,f2:nextf2,f1:pokes+6,15:return
  304. 315 forp=stos+24:pokep,.:next:pokes+24,15
  305. 316 pokes+5,8:pokes+6,255:pokes+4,23
  306. 317 forf=15to8step-1:forf1=18to10step-2:pokes+15,f1
  307. 318 forf2=12to4step-1:pokes+1,f2:pokes+15,f:nextf2,f1,f:pokes+6,15:return
  308. 319 forp=stos+24:pokep,.:next:pokes+24,15
  309. 320 pokes+5,96:pokes+6,96:pokes+4,23:pokes+2,85:pokes+1,36
  310. 321 forf=1to10:next:pokes+6,15:return
  311. 322 forp=stos+24:pokep,.:next:pokes+24,15
  312. 323 pokes+1,10:pokes,5:pokes+5,129:pokes+6,129:pokes+4,21:return
  313. 324 forp=stos+24:pokep,.:next:pokes+24,15
  314. 325 pokes+1,25:pokes,5:pokes+5,20:pokes+6,20:pokes+4,129:fort=1to75:next
  315. 326 pokes+4,128:return
  316. 327 data 169,,133,251,133,253,169,208,133,252,169,240,133,254,162,8
  317. 328 data 160,,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
  318. 329 data035,24,60,110,110,110,110,110,110
  319. 330 data036,255,199,231,129,,60,126,255
  320. 331 data037,255,60,24,255,219,153,153,24
  321. 332 data038,24,24,60,102,102,60,,
  322. 333 data039,,126,127,127,112,126,,255
  323. 334 data040,110,110,110,110,110,110,110,110
  324. 335 data042,60,60,255,153,60,60,60,60
  325. 336 data081,255,231,231,231,231,219,195,231
  326. 337 data083,231,195,153,189,165,153,195,255
  327. 338 data086,27,31,31,27,59,123,219,155
  328. 339 data088,126,102,102,126,24,24,30,30
  329. 340 data091,216,248,248,216,220,222,219,217
  330. 341 data092,175,88,171,88,168,88,168,88
  331. 342 data102,219,54,219,102,219,54,219,102
  332. 343 data104,24,255,192,192,192,255,24,24
  333. 344 data107,31,24,31,24,31,24,31,24
  334. 345 data108,255,182,255,191,240,176,247,176
  335. 346 data109,255,129,255,129,255,255,129,255
  336. 347 data115,248,24,248,24,248,24,248,24
  337. 348 data123,255,109,255,253,15,13,239,13
  338. 349 data163,255,159,159,239,247,251,253,255
  339. 350 data164,239,239,239,239,239,199,239,239
  340. 351 data165,189,129,153,189,165,129,195,231
  341. 352 data166,255,255,231,219,219,231,255,255
  342. 353 data167,207,183,123,195,129,,255,255
  343. 354 data168,199,239,131,239,239,239,239,239
  344. 355 data169,199,215,199,239,239,239,231,231
  345. 356 data170,129,195,231,195,153,16,153,195
  346. 357 data171,255,255,102,,90,,255,255
  347. 358 data173,255,129,255,255,231,231,255,255
  348. 359 data186,255,231,255,231,255,231,255,231
  349. 360 data189,255,129,255,239,255,129,255,239
  350. 361 data197,255,,255,255,255,255,,255
  351. 362 data220,250,21,218,21,26,21,26,21
  352. 363 data230,54,177,129,108,108,153,153,102
  353. 364 data242,255,255,189,189,129,255,219,255,-1
  354. 365 data .,,,,,,,,,,,,,,,.
  355. 366 data .,8,2,1,2,1,,1,1,1,,1,352,4,2,.
  356. 367 data .,1,,16,,1,,1,,1,32,1,,2,2,.
  357. 368 data .,1,,1,1,2,16,1,,1,,1,,,1,.
  358. 369 data .,4,1,2,,1,,1,2,1,1,2,1,,4,.
  359. 370 data .,1,,1,,1,1,1,,,,,1,,,.
  360. 371 data .,2,1,1,1,1,32,1,1,4,1,2,1,1,34,.
  361. 372 data .,,,,,,,,,,,,,,,.
  362. 373 data .,2,1,1,2,16,2,1,1,1,,2,2,2,2,.
  363. 374 data .,1,,1,,1,,1,,1,1,1,1,984,2,.
  364. 375 data .,2,1,1,,1,2,1,2,1,,32,2,2,2,.
  365. 376 data .,,,2,,1,,1,,1,,129,,,,.
  366. 377 data .,24,1,1,1,1,,2,1,1,,1,65,,24,.
  367. 378 data .,1,,,1,,1,1,,1,,1,,,1,.
  368. 379 data .,1,2,2,1,2,1,,,168,,129,2,1,1,.
  369. 381 data "[145][219][146][157][205][205][157][205][205]"
  370. 382 data "[145][145]#[157]([157]([157]*"
  371. 383 data "[145][223][169][157][157][157][157][194][146]$$[194][157][157][157][157][194][178][178][194]"
  372. 384 data "&"
  373. 385 data "[202][201][157][157][166][166][166]"
  374. 386 data "[145]*[157][146][194][157][194]"
  375. 387 data "[157][216]"
  376. 388 data "[145][145][157][157][157][223] [146][169][157][157][157][169][163][223][157][157][157][157][169] [146]'[160][223][157][157][157][157][157][146][223][163][163][163][146][169]"
  377. 389 data "[157][157][223][169][223][169][157][157][157][157]===="
  378. 390 data 1,1,2,2,3,3,4,5,5,6,6,6,7,7,7,8
  379. 391 data 1,1,2,2,3,4,<,<
  380. 392 data 1,1,2,2,3,4,<,<
  381. 393 data 1,1,2,2,3,65,":;",":;"
  382. 394 data 1,1,2,2,3,65,":978",":978"
  383. 395 data0,,,,,,,
  384. 396 data0,,,,4,,32,6
  385. 397 data0,96,5,60,160,8,255,16
  386. 398 data016,255,8,19,255,200,36,255
  387. 399 data036,9,255,144,18,255,72,37
  388. 400 data126,164,42,60,84,36,24,36
  389. 401 data042,60,84,4,90,32,2,126
  390. 402 data064,1,90,128,,36,,
  391. 403 data0,,,56,255,,67,255
  392. 404 data192,55,255,224,15,255,240,15
  393. 405 data255,240,15,255,240,14,255,176
  394. 406 data014,127,48,30,190,184,62,221
  395. 407 data188,127,107,126,252,255,159,120
  396. 408 data221,143,120,73,7,56,127,3
  397. 409 data024,93,3,12,8,30,30,
  398. 410 data047,53,,10,85,,20,
  399. 411 data052,66,15,24,102,31,44,90
  400. 412 data033,6,102,1,3,90,1,7
  401. 413 data165,
  402.